home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / intuition / IText.st < prev    next >
Encoding:
Text File  |  2004-01-31  |  1.8 KB  |  87 lines
  1. "---------------------------------------------------"
  2. " IText Class implements control of Amiga IntuiText "
  3. " except for actually displaying it, which is in the"
  4. " Window class.  Class Font uses the same basic     "
  5. " primitive number.                                 "
  6. "---------------------------------------------------"
  7.  
  8. Class IText :Glyph ! private !
  9. [
  10.    getPens
  11.  
  12.       ^ <primitive 188 2 0 private> @ <primitive 188 2 1 private>
  13. |
  14.    getTextLength
  15.  
  16.       ^ <primitive 188 9 private>      "Text length in pixels"
  17. |
  18.    textSize
  19.  
  20.       " Answer with a Point Object for the length & height of the Text "
  21.       ^ ((self getTextLength) @ (<primitive 188 2 9 private>))
  22. |
  23.    getTextString
  24.  
  25.       ^ <primitive 188 2 6 private>
  26. |
  27.    getDrawMode
  28.  
  29.       ^ <primitive 188 2 2 private>
  30. |
  31.    getITextOrigin
  32.  
  33.       ^ <primitive 188 2 3 private> @ <primitive 188 2 4 private>
  34. |
  35.    getFontName
  36.  
  37.       ^ <primitive 188 2 5 private>
  38. |
  39.    getNextText
  40.  
  41.       ^ <primitive 188 2 7 private>
  42. |
  43.    getNextTextObject
  44.  
  45.       ^ <primitive 188 2 8 private>
  46. |
  47.    setPens: newPensPoint
  48.  
  49.       <primitive 188 3 0 (newPensPoint x) private>.
  50.       <primitive 188 3 1 (newPensPoint y) private>
  51. |
  52.    setDrawMode: newDrawMode          "JAM1=0, JAM2=1, COMP=2, INV=4"
  53.  
  54.       <primitive 188 3 2 newDrawMode private> 
  55. |
  56.    setITextOrigin: newPoint
  57.  
  58.       <primitive 188 3 3 (newPoint x) private>.
  59.       <primitive 188 3 4 (newPoint y) private>
  60. |
  61.    setFont: newFontObject
  62.  
  63.       <primitive 188 3 5 newFontObject private>
  64. |
  65.    setText: newString
  66.  
  67.       <primitive 188 3 6 newString private>
  68. |
  69.    setNextText: newNextTextObj
  70.  
  71.       <primitive 188 3 7 newNextTextObj private>
  72. |
  73.    dispose
  74.  
  75.       <primitive 188 0 private>. "de-allocate the Object"
  76.  
  77.       <primitive 250 5 0 private>.
  78.  
  79.       ^ nil
  80. |
  81.    new: newString
  82.  
  83.       private <- <primitive 188 1 newString>.
  84.  
  85.       ^ self
  86. ]
  87.